COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE VTEC
C00003 00003	BUF1:	BLOCK 4
C00004 00004		PUSHJ P,OBUF
C00006 00005	GNAME:	SETZM FILEXT+1
C00008 00006	GETNAM:	MOVEI A,
C00009 ENDMK
C⊗;
TITLE VTEC
A←1
B←2
C←3
D←4
E←5
L←6
U←7
X←11
Y←12
XD←13
T←15
TT←16
P←17

LPDL←←69
DSK←←1
LMAR←←=0
RMAR←←=1699

BYTES←=264
REMAIN←51

;TENW←=45

;ZWDS←5
;REMAIN←31
;VWDS←73

WIDTH←←=1700
LBUFL←←=48
LSTBIT←←1⊗34
OVERLAP←←=50
DOFF←←-=760

NBUFS←←4
EXTERN JOBREL,JOBFF,JOBTPC,JOBAPR
MAILBF:	BLOCK 40
SIGN:	0
LINE:	0
PNTR:	0
BUF1:	BLOCK 4
BUF2:	BLOCK 4
FILNAM:	0
FILEXT:	0
	0
FILPPN:	0
PDL:	BLOCK 100

STAR:	MOVE P,[-100,,PDL]
	CLRBFI
	OUTSTR [ASCIZ/	INPUT FILE NAME = /]
	PUSHJ P,GNAME
	OPEN 11,[14↔'DSK   '↔BUF1]
	JRST 4,.
	INBUF 11,NBUFS
	LOOKUP 11,FILNAM
	JRST STAR

OUTNAM:	CLRBFI
	OUTSTR [ASCIZ/	OUTPUT FILE NAME = /]
	PUSHJ P,GNAME
	OPEN [14↔'DSK   '↔BUF2,,]
	JRST 4,.
	OUTBUF NBUFS
	ENTER FILNAM
	JRST OUTNAM
	PUSHJ P,OBUF
	PUSHJ P,INP

BLINE:	AOBJP A,.-1
	PUSHJ P,AD6
	HRROI -=48		;;;;;

LOOP:	AOJG ZBUF2
	MOVE C,1(A)
	MOVEM C,1(B)
	AOBJP B,XOB
	AOBJN A,LOOP
ILOP:	PUSHJ P,INP
	JRST LOOP

XOB:	PUSHJ P,OBUF
	JRST ILOP-1

ZBUF2:	PUSH P,[BLINE]

AD6:	HRRZI X,5
	SETZM 1(B)
	AOBJP B,GETO
	SOJG X,AD6+1
	POPJ P,
GETO:	PUSHJ P,OBUF
	JRST .-3

INP:	IN 11,
	JRST MNUM
	STATO 11,20000
	JRST 4,.
	PUSHJ P,OBUF
	RELEAS
	EXIT

MNUM:	HRRZ A,BUF1+1
	HRLI A,-200
	POPJ P,

OBUF:	HRRM B,BUF2+1
	OUT
	CAIA
	JRST 4,.
	HRRZ B,BUF2+1
	HRLI B,-200
	POPJ P,
GNAME:	SETZM FILEXT+1
	SETZM FILPPN
	HRLZI A,'BIT'
	MOVEM A,FILEXT
	PUSHJ P,GETNAM
	SKIPN A
	HRLZI A,'PLT'
GEXT:	MOVEM A,FILNAM
	CAIE C,"."
	JRST NOEXTN
	PUSHJ P,GETNAM
	MOVEM A,FILEXT
NOEXTN:	CAIE C,"["
	JRST FFDX
	PUSHJ P,GETP
	HRLZM A,FILPPN
	PUSHJ P,GETP
	HRRM A,FILPPN
FFDX:	INCHRW C
	CAIE C,12
	JRST FFDX
	POPJ P,
GETNAM:	MOVEI A,
	MOVE B,[440600,,A]
GETNML:	PUSHJ P,RCH
	POPJ P,
	SUBI C,40
	TLNE B,770000
	IDPB C,B
	JRST GETNML

GETP:	MOVEI A,
GETPL:	PUSHJ P,RCH
	POPJ P,
	TRNE A,770000
	JRST GETPL
	LSH A,6
	ADDI A,-40(C)
	JRST GETPL

RCH:	INCHWL C
	CAIN C,42
	JRST RCHQ
	CAIE C,11
	CAIN C," "
	JRST RCH
	CAIE C,"."
	CAIN C,","
	POPJ P,
	CAIE C,"["
	CAIN C,"]"
	POPJ P,
RCHQR:	CAIGE C,40
	POPJ P,
	CAIL C,"a"
	CAILE C,"z"
	CAIA
	SUBI C,40
POPJ1:	AOS (P)
	POPJ P,

RCHQ:	INCHWL C
	JRST RCHQR
	END STAR